You can use code similar to the following to set the font for a section of your report using PESetFont:
LOCAL SectionCode, ScopeCode, FaceName, FontFamily
LOCAL FontPitch, CharSet, PointSize, IsItalic
LOCAL IsUnderline, IsStrikeOut, Weight
SectionCode = PE_ALLSECTIONS && Apply to all sections
ScopeCode = PE_FIELDS && Apply to fields
FaceName = "Courier"
FontFamily = 0 && FF_DONTCARE
FontPitch = 0 && DEFAULT_PITCH
CharSet = 1 && DEFAULT_CHARSET
PointSize = 12
IsItalic = 0
IsUnderline = 0
IsStrikeOut = 0
Weight = 0
IF PESetFont (Job, SectionCode, ScopeCode, FaceName, FontFamily,;
FontPitch, CharSet, PointSize, IsItalic, IsUnderline,;
IsStrikeOut, Weight) = .F.
&& Handle error
ENDIF
Seagate Software IMG Holdings, Inc. http://www.seagatesoftware.com Support services: http://support.seagatesoftware.com |